perm filename YIELD.PAS[TEX,ALS] blob sn#613086 filedate 1981-09-23 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	program YIELD(OUTPUT)
C00003 ENDMK
CāŠ—;
program YIELD(OUTPUT);
var  BRACKET,YIELD: integer;
begin
writeln('Break-even Bracket vs current yield');
writeln('current   Tax');
writeln('yield   bracket');
for YIELD:=13 to 30 do
begin
BRACKET :=100 -(1260 div YIELD);
if BRACKET <= 50 then writeln(YIELD:3,BRACKET:9);
if YIELD= 18 then writeln(' ');
end;
end.